home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00120_Sumario- arraste indicador.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  570 b   |  20 lines
  1. on mouseDown me
  2.   global gLinhasSubTexto
  3.   put the mouseV into iniV
  4.   put iniV into lastV
  5.   put the locV of sprite (the spriteNum of me) into iniLoc
  6.   repeat while the mouseDown
  7.     put the mouseV into y
  8.     if y < 164 then put 164 into y
  9.     if y > 352 then put 352 into y
  10.     if y <> lastV and gLinhasSubTexto > 14 then
  11.       put y into lastV
  12.       set the locV of sprite (the spriteNum of me) to┬¼
  13.           y - iniV + iniLoc
  14.       put (y-164) * (gLinhasSubTexto - 14) / (352 - 164) into y
  15.       listaSubTextos y, -1
  16.       updateStage
  17.     end if
  18.     
  19.   end repeat
  20. end